home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
attall
/
attabout.frm
< prev
next >
Wrap
Text File
|
1995-05-08
|
4KB
|
145 lines
VERSION 2.00
Begin Form Form3
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "About..."
ClientHeight = 3480
ClientLeft = 4035
ClientTop = 2625
ClientWidth = 3480
ControlBox = 0 'False
Height = 3885
Icon = ATTABOUT.FRX:0000
Left = 3975
LinkMode = 1 'Source
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3480
ScaleWidth = 3480
Top = 2280
Width = 3600
Begin CommandButton Command1
Caption = "OK"
Height = 375
Left = 1080
TabIndex = 6
Top = 2760
Width = 1335
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "or neslon@panix.com"
Height = 255
Index = 8
Left = 0
TabIndex = 7
Top = 2400
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "70741,422"
Height = 255
Index = 7
Left = 0
TabIndex = 5
Top = 2160
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Wilson Smith and Carole Rogers"
Height = 255
Index = 9
Left = 0
TabIndex = 8
Top = 1920
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Questions, comments to:"
Height = 255
Index = 4
Left = 0
TabIndex = 4
Top = 1680
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Enjoy it!"
Height = 255
Index = 3
Left = 0
TabIndex = 3
Top = 1200
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "No warranties, no liabilities"
Height = 255
Index = 2
Left = 0
TabIndex = 2
Top = 840
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Free, public domain, etc."
Height = 255
Index = 1
Left = 0
TabIndex = 1
Top = 600
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "All the Time v2.0"
Height = 255
Index = 0
Left = 0
TabIndex = 0
Top = 135
Width = 3495
End
End
'11/16 1.0 - 1.01 -> non-tiling. consistent hourglassing
'11/17 1.01 - 1.02 -> stopped doing a CLS for tiled preview
' (bug introduced in 1.01)
'11/17 1.02 - 1.03 -> stopped doing a CLS at all. PatBlt for non-tiled background
'11/24 1.1
'lots of versions, one to CIS, one to JB and LB,
' one to SJH and MS
'1/18 1.15 -> sent 1.11d to Brad Friedman
' -> went through C's list of things, mostly minor.
Sub Command1_Click ()
Unload Form3
End Sub
Sub Form_Load ()
If Settings.Visible Then
Form3.Left = Settings.Left + (Settings.Width / 2) - (Form3.Width / 2)
Form3.Top = Settings.Top + (Settings.Height / 2) - (Form3.Height / 2)
Else
Form3.Left = Screen.Width / 2 - (Form3.Width / 2)
Form3.Top = Screen.Height / 2 - (Form3.Height / 2)
End If
End Sub